home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / prnt shp-ddl (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.5 KB  |  65 lines
  1. 0 print"[147]":poke53280,0:poke53281,6:poke646,1
  2. 1 rem print shop to bit map converter
  3. 2 rem for print shop graphic editor
  4. 3 rem   *************************
  5. 4 rem   *  (c) march 3, 1984    *
  6. 5 rem   * by morton a. kevelson *
  7. 6 rem   * p. o. box 260         *
  8. 7 rem   * homecrest station     *
  9. 8 rem   * brooklyn, ny 11229    *
  10. 9 rem   *************************
  11. 10 rem use with doodle! files
  12. 19 on fl goto200,400
  13. 20 poke51,0:poke52,57:poke55,0:poke56,57
  14. 25 print:print:print
  15. 30 print"        1[146] bit map to print shop":print
  16. 40 print"        2[146] print shop to bit map":print:print
  17. 50 print"              press 1[146] or 2[146]"
  18. 60 get fl$:fl=val(fl$)
  19. 70 if fl<1 or fl>2 then goto60
  20. 80 input"source file name";sf$
  21. 90 input"destination file name";df$
  22. 100 sa=24576:rem sa=doodl! start address
  23. 110 tf=22528:rem print shop start address
  24. 120 load sf$,8,1
  25. 200 for rw=0to7
  26. 210 for ps=0to7
  27. 220 for co=0to10
  28. 230 by=sa+co*8+ps+rw*320
  29. 240 poke tf,peek(by)
  30. 250 tf=tf+1
  31. 260 nextco:nextps:nextrw
  32. 270 fori=23100to23107:pokei,0:nexti
  33. 280 gosub800
  34. 290 poke43,0:poke44,88:poke45,67:poke46,90:save"pstemp",8
  35. 300 poke43,1:poke44,8:poke45,peek(36864):poke46,peek(36865)
  36. 310 open1,8,15:print#1,"r0:"+df$+"=pstemp":close1:end
  37. 400 for cm=23552 to 24551
  38. 410 poke cm,1:next cm
  39. 420 for mm=sa to sa+7999
  40. 430 poke mm,0:next mm
  41. 440 for rw=0to7
  42. 450 for ps=0to7
  43. 460 for co=0to10
  44. 470 by=sa+co*8+ps+rw*320
  45. 480 pokeby,peek(tf)
  46. 490 tf=tf+1
  47. 500 nextco:nextps:nextrw
  48. 510 forrw=0to7
  49. 520 forps=0to7
  50. 530 by=sa+88+ps+320*rw
  51. 540 pokeby,128
  52. 550 nextps:nextrw
  53. 560 forco=0to10
  54. 570 by=sa+co*8+1923
  55. 580 pokeby,255
  56. 590 nextco
  57. 600 gosub800
  58. 610 poke43,0:poke44,92:poke45,0:poke46,128
  59. 620 save"ddtemp",8
  60. 630 poke43,1:poke44,8:poke45,peek(36864):poke46,peek(36865)
  61. 640 open1,8,15:print#1,"r0:"+df$+"=ddtemp":close1:end
  62. 800 poke36864,peek(45)
  63. 810 poke36865,peek(46)
  64. 820 return
  65.